
(define cc (list (make-control "a" 0 1 0 'i)
		 (make-control "b" 1 2 0 'i)
		 (make-control "c" 2 3 0 'i)
		 (make-control "d" 3 4 0 'k)
		 (make-control "e" 4 5 2 'k)
		 (make-control "f" 5 6 1 'k)))

(control-set-legal? cc)			; => #t

(control-set-rate-values cc)		; => (0 0 0 1 1 1)

(list 
 (control-set-count-rate cc 0)  		
 (control-set-count-rate cc 0))		; => (3 3)

(control-set-lag-values cc)		; => (0 2 1)

(control-set-ugen-indices cc)		; => (0 0 0 1 1 1)

(control-set-port-indices cc)		; => (0 1 2 0 1 2)

(for-each structure-print (control-set-finalize cc))

(for-each structure-print (control-set->implicit-ugens cc))

(map structure-print
     (make-control/multiple "test"
			    4
			    '(10 9 8)
			    0
			    1))

